﻿<Serializable()> _
Public Class SolidQTerm
    Public Property Id() As String
        Get
            Return m_Id
        End Get
        Set(ByVal value As String)
            m_Id = value
        End Set
    End Property
    Private m_Id As String
    Public Property Name() As String
        Get
            Return m_Name
        End Get
        Set(ByVal value As String)
            m_Name = value
        End Set
    End Property
    Private m_Name As String
    Public Property TermStoreId() As String
        Get
            Return m_TermStoreId
        End Get
        Set(ByVal value As String)
            m_TermStoreId = value
        End Set
    End Property
    Private m_TermStoreId As String
    Public Property TermStoreName() As String
        Get
            Return m_TermStoreName
        End Get
        Set(ByVal value As String)
            m_TermStoreName = value
        End Set
    End Property
    Private m_TermStoreName As String
    Public Property TermStorePath() As String
        Get
            Return m_TermStorePath
        End Get
        Set(ByVal value As String)
            m_TermStorePath = value
        End Set
    End Property
    Private m_TermStorePath As String
    Private Property ShowPath() As Boolean
        Get
            Return m_ShowPath
        End Get
        Set(ByVal value As Boolean)
            m_ShowPath = value
        End Set
    End Property
    Private m_ShowPath As Boolean



    Public Overrides Function ToString() As String
        Return If(ShowPath, Name & " [" & TermStorePath & "]", Name)
    End Function

    Public Sub New(ByVal ShowPath As Boolean)
        Me.ShowPath = ShowPath
    End Sub
End Class
